unit AddSek;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TAddSekForm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Sek: TEdit;
    Eintragen: TButton;
    Abbrechen: TButton;
    procedure SekKeyPress(Sender: TObject; var Key: Char);
    procedure AbbrechenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EintragenClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    ZuErbringendeLeistung, ErbrachteLeistung: string;
  end;

implementation

{$R *.dfm}

procedure TAddSekForm.SekKeyPress(Sender: TObject; var Key: Char);
var
   i: Byte;
begin
   if not (Key in [#48..#57,#8,#44,#46]) then
      Key := #0;
   if Key = #46 then
      Key := #44;
   if Key = #44 then
      for i:=1 to Length(Sek.Text) do
         if Sek.Text[i] = #44 then
            Key := #0;
end;

procedure TAddSekForm.AbbrechenClick(Sender: TObject);
begin
   Close;
end;

procedure TAddSekForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Sek.Clear;
end;

procedure TAddSekForm.EintragenClick(Sender: TObject);
var
   i: Byte;
begin
   If (Sek.Text = '') or (Sek.Text = '0') then
      Close
   else begin
      for i:=1 to Length(ZuErbringendeLeistung) do
         if ZuErbringendeLeistung[i] = #46 then
            ZuErbringendeLeistung[i] := #44;
      if StrToFloat(ZuErbringendeLeistung) <
         StrToFloat(Sek.Text) then
      begin
         ShowMessage('Achtung !!!'
                     + #10#13 + 'Der Teilnehmer hat mit dem Eingegebenen Wert die geforderte Leistung nicht erbracht.!');
         Close;
      end else begin
         ErbrachteLeistung := Sek.Text + ' sek';
         Close;
      end;
   end;
   Sek.SetFocus;
end;

procedure TAddSekForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Return then
    EintragenClick(nil);
end;

procedure TAddSekForm.FormCreate(Sender: TObject);
begin
  ErbrachteLeistung := '';
end;

end.
